home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / c / genmo112.lha / GTB-Modula / GenModula / GeneratorIO.def < prev    next >
Encoding:
Modula Definition  |  1993-09-28  |  1.5 KB  |  65 lines
  1. DEFINITION MODULE GeneratorIO;
  2.  
  3. (*
  4.  * -------------------------------------------------------------------------
  5.  *
  6.  *    :Program.    GenModula
  7.  *    :Contents.    A Modula 2 Sourcecode generator for GadToolsBox
  8.  *
  9.  *    :Author.    Reiner B. Nix
  10.  *    :Address.    Geranienhof 2, 50769 Köln Seeberg
  11.  *    :Address.    rbnix@pool.informatik.rwth-aachen.de
  12.  *    :Copyright.    Reiner B. Nix
  13.  *    :Language.    Modula-2
  14.  *    :Translator.    M2Amiga A-L V4.2d
  15.  *    :Imports.    GadToolsBox, NoFrag  by Jaan van den Baard
  16.  *    :Imports.    InOut, NewArgSupport by Reiner Nix
  17.  *    :History.    this programm is a direct descendend from
  18.  *    :History.     OG (Oberon Generator) 37.11 by Thomas Igracki, Kai Bolay
  19.  *    :History.    GenModula 1.10 (23.Aug.93)    ;M2Amiga 4.0d
  20.  *    :History.    GenModula 1.12 (28.Sep.93)    ;M2Amiga 4.2d
  21.  *
  22.  * -------------------------------------------------------------------------
  23.  *)
  24.  
  25. FROM    FileSystem        IMPORT    File;
  26. FROM    GadToolsBox        IMPORT    GenCFlagSet,
  27.                     WindowList,
  28.                     GuiData, GadToolsConfig;
  29.  
  30.  
  31. TYPE    ProgramArguments    =RECORD    name            :ARRAY [0..128] OF CHAR;
  32.                     fileName,
  33.                     BaseName        :ARRAY [0..30] OF CHAR;
  34.                     raster,
  35.                     mouse            :BOOLEAN
  36.                     END;
  37.  
  38.  
  39. VAR    dfile, mfile        :File;
  40.     args            :ProgramArguments;
  41.  
  42.     Gui            :GuiData;
  43.     MainConfig        :GadToolsConfig;
  44.     CConfig            :GenCFlagSet;
  45.     Projects        :WindowList;
  46.  
  47.  
  48. PROCEDURE WriteFill        (VAR file        :File;
  49.                      text        :ARRAY OF CHAR;
  50.                      offset        :LONGINT);
  51.  
  52. PROCEDURE SeekBack        (VAR file        :File;
  53.                      bytes        :LONGINT);
  54.  
  55.  
  56.  
  57. PROCEDURE WriteText        (VAR file        :File;
  58.                      text        :ARRAY OF CHAR);
  59.  
  60.  
  61. PROCEDURE GetAttrName        (VAR attrName        :ARRAY OF CHAR);
  62.  
  63.  
  64. END GeneratorIO.
  65.